use replication_senate.dta, clear

***Table 2***
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote povertyrate medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)
logit vote povertyrate medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)

logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)


***Table 3***
logit vote povertyrate medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if party==1, cluster(icpsr)


***Online Appendix***
***Table A1***
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009
estimate store full
logit vote medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009
estimate store restricted
lrtest full restricted

estimates clear
logit vote povertyrate medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1
estimate store full
logit vote medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1
estimate store restricted
lrtest full restricted

estimates clear
logit vote povertyrate medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0
estimate store full
logit vote medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0
estimate store restricted
lrtest full restricted

estimates clear
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2
estimate store full
logit vote medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2
estimate store restricted
lrtest full restricted

estimates clear
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3
estimate store full
logit vote medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3
estimate store restricted
lrtest full restricted


***Table A3***
logit vote spm_pre medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote spm_pre medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)
logit vote spm_pre medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)

logit vote spm_pre medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote spm_pre medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)

logit vote spm_post medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote spm_post medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)
logit vote spm_post medinc netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)

logit vote spm_post medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote spm_post medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)


***Table A4***
logit vote c.medinc##c.medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)
margins, at(medinc=(20(1)60)) level(90)
marginsplot

logit vote c.medinc##c.medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if prezprty==1 | time_to_elec>=3, cluster(icpsr)
margins, at(medinc=(20(1)60)) level(90)
marginsplot

logit vote c.medinc##c.medinc netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if prezprty==0 & time_to_elec<=2, cluster(icpsr)
margins, at(medinc=(20(1)60)) level(90)
marginsplot


***Table A5***
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty s1998 s2009 if time_to_elec<2, cluster(icpsr)
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty s1998 s2009 if time_to_elec>=2 & time_to_elec<=3, cluster(icpsr)
logit vote povertyrate medinc netx netm skills party dwnom1 prezprty s1998 s2009 if time_to_elec>=4, cluster(icpsr)


***Table A6***
logit vote povertyrate medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote povertyrate medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)
logit vote povertyrate medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)

logit vote povertyrate medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote povertyrate medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)


***Table A8***
logit vote spm_pre medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote spm_pre medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)
logit vote spm_pre medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)

logit vote spm_pre medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote spm_pre medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)

logit vote spm_post medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009, cluster(icpsr)

logit vote spm_post medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==1, cluster(icpsr)
logit vote spm_post medinc bankpac netx netm skills dwnom1 time_to_elec s1998 s2009 if prezprty==0, cluster(icpsr)

logit vote spm_post medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec<=2, cluster(icpsr)
logit vote spm_post medinc bankpac netx netm skills party dwnom1 prezprty time_to_elec s1998 s2009 if time_to_elec>=3, cluster(icpsr)
